home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / uucp / aminetutils.lzh / AmiNet / AmiNetSearch.rexx < prev    next >
OS/2 REXX Batch file  |  1995-10-23  |  654b  |  29 lines
  1. /* AmiNetSearch.rexx
  2. **
  3. ** This script is intended for use with Excelsior! BBS
  4. **
  5. ** It will properly launce the AmiNetSearch program after calculating
  6. ** the user's full internet address.
  7. */
  8.  
  9. options results
  10.  
  11. AmiNetDir = 'Doors:AmiNet/'          /* Edit this line if you need to */
  12.  
  13. getuser 8; inet=result
  14. address 'MASTER_REXX1'
  15. getsystem 3 ; addr2=result
  16. address
  17. t=pos('%s',addr2)
  18. if t<1 then do
  19.      print 'InterNet not properly configured'
  20.      exit
  21. end; else do
  22.      addr=left(addr2,t-1)||inet||right(addr2,length(addr2)-t-1)
  23. end     
  24.  
  25. changewhere "InterNet"
  26. changewhat  "AmiNet FTP"
  27. print '\q1\#4'AmiNetDir'AmiNetSearch %42 'AmiNetDir' 'addr' 0\'
  28.  
  29.